home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 May / CMCD0504.ISO / Software / Freeware / Programare / dspack / DSPACK231.exe / {app} / Demos / wmvnetwrite / Unit2.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-09-02  |  599 b   |  38 lines
  1. unit Unit2;
  2.  
  3. interface
  4.  
  5. uses
  6.   Classes;
  7.  
  8. type
  9.   kjh = class(TThread)
  10.   private
  11.     { Private declarations }
  12.   protected
  13.     procedure Execute; override;
  14.   end;
  15.  
  16. implementation
  17.  
  18. { Important: Methods and properties of objects in VCL or CLX can only be used
  19.   in a method called using Synchronize, for example,
  20.  
  21.       Synchronize(UpdateCaption);
  22.  
  23.   and UpdateCaption could look like,
  24.  
  25.     procedure kjh.UpdateCaption;
  26.     begin
  27.       Form1.Caption := 'Updated in a thread';
  28.     end; }
  29.  
  30. { kjh }
  31.  
  32. procedure kjh.Execute;
  33. begin
  34.   { Place thread code here }
  35. end;
  36.  
  37. end.
  38.